[solved] TppRichView, trvHTMLImporter and Report Builder

Return to index

Author

Message

Steve Beebe

Posted: 02/17/2004 22:43:56

"Steve Beebe" <steve@xapware.com> wrote:

>

Here's what I have:

in the OnPrint event

var

  lppDBRV: TppDBRichView;

  lpl: TppDataPipeline;

  lfld: TField;

begin

  if Sender is TppDBRichView then

  begin

    lppdbRV := TppDBRichView(Sender);

    lpl := lppdbRV.DataPipeline;

    lfld := TppDBPipeline(lpl).DataSource.DataSet.FieldByName(lppdbRV.DataField);

    lppdbRV.AutoDisplay := False;

    RvHtmlImporter1.RichView := lppdbRV.RichView;

    RvHtmlImporter1.LoadHtml(lfld.AsString);

    lppdbRV.RichView.Format;

  end;

end;

Adding the TppDBRichView.AutoDisplay := False to the OnPrint event, keeps

the normal population of the component from overwriting the HTML population

in the OnPrint event.